home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 051-075 / scopedisk51 / pointer / pointer.asc < prev    next >
Text File  |  1995-03-18  |  2KB  |  75 lines
  1.  REM This program shows how to custom make pointers for your AmigaBasic
  2.  REM programs. It was done by Woody Pope 1/2/89. Compiled by AC-Basic.
  3.  REM NOTE!!!: This program will not work unless compiled. For some reason,
  4.  REM AmigaBasic blows away the array in the source code. WEIRD!
  5.  
  6.  CLS
  7.  LIBRARY "intuition.library"
  8.  
  9.  DIM s%(36)
  10.  
  11.  REM Describe Pointer:First and last two words must be zero.
  12.  REM This is a 16 x 16 pointer. Every two array element words
  13.  REM describe the colors for each of 16 pixels across the pointer,
  14.  REM bit by bit.
  15.  REM s%(2) & s%(3) Binary = 0000000110000000\ color plane for top line.
  16.  REM                0000000110000000/
  17.  REM Color code: 0,0=color0(clear)
  18.  REM             1,0=color1
  19.  REM             0,1=color2
  20.  REM             1,1=color3
  21.  REM Pixels 1-7 are color0, Pixels 8 & 9 are color3, Pixels 10-16 are color0.
  22.  
  23.  s%(0)=0
  24.  s%(1)=0
  25.  s%(2)=&H0180
  26.  s%(3)=&H0180
  27.  s%(4)=&H07E0
  28.  s%(5)=&H07E0
  29.  s%(6)=&H1FF8
  30.  s%(7)=&H1FF8
  31.  s%(8)=&H3FFC
  32.  s%(9)=&H3FFC
  33.  s%(10)=&H7E7E
  34.  s%(11)=&H7FFE
  35.  s%(12)=&H700E
  36.  s%(13)=&H7FFE
  37.  s%(14)=&HE007
  38.  s%(15)=&HFC3F
  39.  s%(16)=&HC003
  40.  s%(17)=&HF81F
  41.  s%(18)=&HC003
  42.  s%(19)=&HF81F
  43.  s%(20)=&HE007
  44.  s%(21)=&HFC3F
  45.  s%(22)=&H700E
  46.  s%(23)=&H7FFE
  47.  s%(24)=&H7E7E
  48.  s%(25)=&H7FFE
  49.  s%(26)=&H3FFC
  50.  s%(27)=&H3FFC
  51.  s%(28)=&H1FF8
  52.  s%(29)=&H1FF8
  53.  s%(30)=&H07E0
  54.  s%(31)=&H07E0
  55.  s%(32)=&H0180
  56.  s%(33)=&H0180
  57.  s%(34)=0
  58.  s%(35)=0
  59.  
  60.  LOCATE 5,2
  61.  PRINT"Press Any Key To Exit"
  62.  
  63.  REM This call to Intuition Library changes pointer. 
  64.  CALL SetPointer&(WINDOW(7),VARPTR(s%(0)),16,16,-8,-8)
  65.  
  66.  loop:
  67.  a$=INKEY$:IF a$="" THEN loop
  68.  
  69.  REM This call puts back old pointer.
  70.  CALL ClearPointer&(WINDOW(7))
  71.  
  72.  LIBRARY CLOSE
  73.  END
  74.  
  75.